home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Language (lang) / Lazy-Scheme / Examples / Gabriel < prev    next >
Encoding:
Text File  |  1992-03-05  |  695 b   |  36 lines  |  [TEXT/Help]

  1. {Some benchs from Gabriel, runs on a IICi}
  2.  
  3.  
  4. (define (tak x y z)
  5.   (cond (not (<? y x))
  6.       z
  7.       (tak (tak (1- x) y z)
  8.            (tak (1- y) z x)
  9.            (tak (1- z) x y))))
  10. { = tak }
  11.  
  12. (chrono (tak 18 12 6))
  13. { = [7  2.243333333333333333e+1  1.333333333333333333e+0] }
  14.   
  15. (setstrict tak %111)
  16. (chrono (tak 18 12 6))
  17. { = [7  1.890000000000000000e+1  5.166666666666666666e-1] }
  18.   
  19. (define (rd2 l)
  20.   (cond (null? l) ()
  21.         (cons (0 l)(rd2 (-2 l)))))
  22. { = rd2 }
  23. (define (t n)
  24.   (cond (zero? n) ()
  25.         (begin (rd2 ll)(rd2 ll)(rd2 ll)(rd2 ll)(t (1- n)))))
  26. { = t }
  27. (chrono (t 300))
  28.  
  29.  
  30. (define (c n)
  31.   (cond (zero? n) ()
  32.         (cons () (c (1- n)))))
  33. { = c }
  34. (define ll (c 200))
  35. { = ll }
  36.